GENETIC MUSIC 
Mark Hennings and Denise Kettelberger 

Background of the Invention 

Genetic material identifies the characteristics that are common to living 
organisims, as well as unique characteristics of every individual plant and animal. The 
recent acceleration in our knowledge of specific sequences as well as total genomes has 
also provided tools for rapidly obtaining this information from a small sample of 
biological material. Numerous products and methods can now take advantage of this 
pool of knowledge, adapting the genetic material into novel and interesting new 
products. 

Genetic material includes nucleic acid sequences, DNA and RNA, that are 
arrangements of four different nucleotides, Adenine (A), cytosine (C), thymine (T), and 
guanine (G) are the building blocks of a DNA sequence. Much of the DNA in an 
individual genome encodes the amino acids of specific proteins using a triplet codon of 
nucleotides to code for each specific amino acid, as well as to signal the start and stop 
of the encoded protein. Non-coding DNA includes regulatory sequences and signals for 
the processing of the coded messages. The data stored in an individual's genome can 
be determined by various known sequencing methods, and this data can then be tapped 
for a variety of purposes, including individual identification, medical diagnosis, and the 
like. 

Summary of the Invention 

The present invention takes advantage of the advances in genetic sequence 
knowledge and provides a creative solution to analysis of sequence data. In the present 
invention, genetic sequence data is converted into music characteristic of the individual 
sequence provided. This genetic music is useful in a variety of products, including 
medical diagnostics, security identification systems, novelty items such as greeting 
cards, and the like. 
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Brief Description f the Drawings 

Figure 1 is a schematic diagram demonstrating the generation of a music signal 
from a DNA sequence sample according to one embodiment of the invention. 

Figure 2 is a schematic diagram demonstrating the generation of a music signal 
from a DNA sequence sample according to one embodiment of the invention. 

Figure 3 is a schematic diagram demonstrating the generation of a music signal 
from a DNA sequence sample according to one embodiment of the invention. 

Figure 4 is a schematic diagram demonstrating the generation of a music signal 
from a DNA sequence sample according to one embodiment of the invention. 

Detailed Description of the Invention 

Definitions: 

As used herein, the following terms are intended to have the noted definitions, 
"melodic sequence" is a signal containing melodic information, 
"harmonic sequence" is a signal containing musical harmonic information, 
"chord" is musical information comprising notes of typically three or more intervals, 
"transcriber" is an apparatus configured to receive one data signal and transcribe that 

data signal into a different data signal; in the present invention, the received 

DNA signal is transcribed into a musical signal, 
"generator" is an apparatus configured to generate a data signal; in the present 

invention, a musical signal is generated, 
"decoder" is an apparatus configured to decode a message within a data signal; in the 

present invention, the received DNA signal is decoded to determine an amino 

acid signal. 

"music signal" is the music product generated from the data stream; in the present 
invention, the music signal is generated from received DNA sequence that is 
decoded and may be melodic music, harmonic music, or a combination of these. 

"audio waveform" is a digital or analog signal conveying an audio "recording" of the 
intended music. 
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"musical command sequence" is a sequence of commands for a generator (such as a 
synthesizer) to generate music according to the command sequence, 

"data carrier" is an apparatus configured and adapted to carry a data signal; in the 
present invention, a data carrier may be an electronic medium such as a 
computer, a compact disk (CD), and the like. 

"consumer product" is a product purchased and/or used by consumers. 

"clinical analyzer" is an apparatus configured to analyze data from patient samples. 

Genetic Material 

Genetic material is contained within cells in genomic DNA. The nucleotide 
bases of genomic DNA (A, C, T, and G) encode the twenty amino acids that are the 
builiding blocks of proteins, as well as signals for start and stop of the three base codon 
translation into amino acids. In the cell, the code within the genomic DNA is copied to 
messenger RNA, where the nucleotide thymine (T) is replaced with uracil (U). In 
artifical systems, the messenger RNA can be obtained from cells and converted into 
DNA as a copy of the RNA message, called cDNA. Genomic DNA contains additional 
signals that are not part of the coding sequence. 

The codon table below shows the code for translation of DNA triplets into 
amino acids. 



CODON TABLE 
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A 
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Sequencing 

DNA can be sequenced from a variety of cell samples, including blood, hair, 
nail clippings, cheek cells, and the like. Known methods include didioxy sequencing, 
PCR sequencing, and the like. Random pieces of DNA extracted from cells may be 
sequenced, or specific portions may be isolated and sequenced, for example by targeted 
PCR amplification of a particular region of the DNA. Once the sample has been 
sequenced, it can be stored, for example, in an electronic data carrier, for transmission 
to a DNA transcriber for use in generating music according to the present invention. 



Music 



A musical composition is a collection of music notes that can include a melody, 
harmony, tempo, rhythm, volume, and the like. Depending upon the algorithm applied 
to a data stream, synthetic music can be generated in a variety of ways from simple to 
complex. In the simplest method, each of the DNA nucleotides A, C, T, and G can be 
assigned a specific musical note. The data stream of nucleotides can then be transcribed 
into a data stream of musical notes. Alternatively, the nucleotide sequence can first be 
decoded to an amino acid sequence, whereby the twenty amino acids can be each 
assigned to a specific musical note. Variations can be used to produce chords, to 
specify rhythms, tone, volume, to generate melodic music and harmonic musk, and the 



like 
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As shown in Figure 1, according to the present invention, a data stream of 
nucleotides of a DNA sequence is provided to a decoder. The decoder detects specific 
nucleotide sequences that may be recognition signals, enzyme recognition signals, 
promoter sequences, and the like. The decoder may also detect a coding sequence, for 
example a sequence having an open reading frame with start and stop signals, and 
intervening codon sequences. The DNA sequence received by the decoder is 
processed according to one set of recognition sequences and transcribed by a melodic 
sequence generator into a melodic sequence in response to the received DNA sequence. 
The decoder further processes the received DNA sequence into an amino acid sequence 
according to the identified triplet codon series, and conveys information related to the 
determined amino acids in a signal. In one embodiment, the harmonic sequence 
generator determines a series of chords according to the determined amino acid. The 
harmonic information can be used by the melodic sequence generator to develop a 
melodic sequence. Further, the harmonic sequence generator can identify chemical 
proerties that are associated with the determined amino acids. The melody and 
harmony generated are then processed into a music signal by a music signal generator. 

As shown in Figure 2, in one embodiment, a melodic sequence is produced from 
the decoded DNA sequence by assigning each nucleotide to a chord position converter. 
The chord information is adjusted by an internal adjuster to produce a series of notes to 
generate a melodic sequence. The adjuster may use harmonic sequence information to 
assign notes in the melody as chord tones or passing tones. v 

As shown in Figure 3, in one embodiment, a harmonic sequence is produced 
from the decoded DNA sequence by classifying each amino acid identified from the 
DNA sequence. The classification can be according to a chemical property (such as 
hydrophobic" or acidity) and/or simply by the amino acid name. The classification 
data is converted into chord types by a chord type selector that selects chord roots to 
produce a harmonic sequence. At the same time, the chord type and root selectors 
provide chord information that can be applied to the adjustment of data to obtain the 
melodic sequence, as shown in Figure 2. 
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As shown in Figure 4, the melodic sequence and the harmonic sequence are 
received by a music output module to produce the product music signal. The music 
signal may be an audio waveform that can be played on commercial music players or 
music command sequences (such as MIDI files or data streams) that can be used to 
control devices that generate music (such as musical synthesizers). 

Products 

The music signal generated from the genetic data can be used in a variety of 
consumer and industrial products and methods. For example, novelty products such as 
greeting cards, genetic music CDs, and the like can incorporate a person's individual 
music generated from their own sample of DNA. The specific DNA sequence can be 
provided to a company for generation of the genetic music. Alternatively, a sample 
containing the genetic material can be provided for sequencing and generating the 
music. 

Useful products include individual identity analysis, for example, for security 
checking, paternity testing, and the like. The music generated by an individual sample 
can be compared with a control sample. An identity analyzer can be configured to 
provide an audible signal for a specific comparative result, for example, if the sample 
and the control differ, e.g., signaling an alarm in a security setting, or when they are the 
same, e.g., adding excitement to live television coverage of paternity determinations. 

Clinical analyzers that compare sequences of patient samples with controls may 
be programmed to provide soothing melodies when the sequence is "normal" and to 
provide an audible, for example, discordant music when an "abnormal" sequence is 
detected. Such signals can provide a signal for the clinical technician to alert a 
physician to the difference in the sequence. 

The above specification, examples, figures, and data provide a complete 
description of the invention. Since many embodiments of the invention can be made 
without departing from the spirit and scope of the invention, the invention resides in the 
claims hereinafter appended. 
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Example 1. 



To exemplify the invention, a program was devised to analyze a DNA sequence and 
generate music according to the invention: 



Private Sub WriteMidiFile (Melody) 

MsgBox "Procedure WriteMidiFile entered" 
Dim bytearray(0 To 65535) As Byte 



bytearray(O) = Asc( w M w ) 
bytearray(l) = Asc("T") 
bytearray(2) - Asc( w h w ) 
bytearray (3) = Asc( n d n ) 
bytearray(4) - 0 
bytearray(5) = 0 
bytearray(6) = 0 
bytearray (7) = 6 
bytearray(8) = 0 
bytearray (9) = 1 
bytearray (10) = 0 
bytearray (11) = 2 
bytearray (12) = 1 
bytearray (13) = 172 



'header chunk 1 



•length of file in bytes 
•Format Type 1 Multitrack 
•Number of tracks in this File 



• ? ticks per beat 



bytearray (14) 
bytearray (15) 
bytearray (16) 
bytearray (17) 
bytearray (18) 
bytearray (19) 
bytearray (20) 
bytearray (21) 
bytearray (22) 

bytearray (23) 
bytearray (24) 
bytearray (25) 
bytearray (26) 
bytearray (27) 
bytearray (28) 
bytearray (29) 

bytearray (30) 
bytearray (31) 
bytearray (32) 
bytearray (33) 
bytearray (34) 
bytearray (35) 
bytearray (36) 
bytearray (37) 



AscCM") 

Asc( w T w ) 

Asc( w r n ) 

Asc("k w ) 

0 

0 

0 

26 
0 



'header chunk 2 



•length of file in bytes 
' separator 



255 'Tempo setting command (3bytes) 

5 * 16 + 1 

3 

7 • microseconds 

10 * 16 + 1 ^ 

32 

0 'separator 



255 
5 * 
4 
3 
2 

96 

8 

0 



•Time Signature command (3bytes) 
16 + 8 

'numerator 
•denomenator 
•Clocks / beat 
•32nd notes / beat 
• separator 
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bytearray(38) 
bytearray(39) 
bytearray (40) 
bytearray(41) 
bytearray(42) 
bytearray (43) 
bytearray{44) 

bytearray (45) 
bytearray(46) 
bytearray(47) 

bytearray (48) 
bytearray (4 9) 
bytearray (50) 
bytearray (51) 
bytearray (52) 
bytearray (53) 
bytearray (54) 
bytearray (55) 
bytearray (56) 
•discontinuity 



255 

127 

3 

0 

0 

65 

0 



•?Key Signature setting command (3bytes) 



•flats 

•sharps 

•? 

•separator 



255 "End of Track command 

2 * 16 + 15 

0 

Asc("M w ) 'header chunk 3 

AscCT") 

AscCr") 

AscCk") 

0 

0 

0 

41 'length of file in bytes 
0 'status 



bytearray (66) 




9 * 


16 


•Note on, Middle C, 


vel . 


64 


bytearray (67) 




60 










bytearray (68) 




64 










bytearray (69) 




128 


+ 3 


•delay 432 ticks 






bytearray(70) 




3 * 


16 






bytearray (71) 




128 




•Note off, Middle C, 


vel. 


64 


bytearray (72) 




60 










bytearray (73) 




64 










bytearray (74) 




3 * 


16 


•delay 432 ticks 






bytearray (75) 




9 * 


16 


•Note on, Middle C, 


vel. 


64 


bytearray (76) 




60 










bytearray (77) 




64 










bytearray (78) 




128 


+ 3 


•delay 432 ticks 






bytearray (7 9) 




3 * 


16 






bytearray (80) 




128 




•Note off, Middle C, 


vel. 


64 


bytearray (81) 




60 










bytearray (82) 




64 










bytearray (83) 




3 * 


16 


•delay 432 ticks 






bytearray (84) 




9 * 


16 


•Note on, Middle C, 


vel. 


64 


bytearray (85) 




60 










bytearray (86) 




64 










bytearray (87) 




128 


+ 3 


•delay 432 ticks 






bytearray (88) 




3 * 


16 






bytearray (89) 




128 




•Note off, Middle C, 


vel. 


64 


bytearray (90) 




60 










bytearray (91) 




64 










bytearray (92) 




3 * 


16 


•delay 432 ticks 
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bytearray(93) = 9 * 16 •Note on, Middle C, vel. 64 

bytearray(94) = 60 

bytearray(95) = 64 

bytearray(96) =128+3 'delay 432 ticks 

bytearray{97) = 3 * 16 

bytearray(98) - 128 •Note off, Middle C, vel. 64 

bytearray(99) = 60 
bytearray (100) - 64 



bytearray(lOl) - 10 * 16 + 13 'delay 5808 ticks 
bytearray (102) = 3 * 16 

bytearray (103) = 255 'End of Track command 

bytearray (104) = 2 * 16 + 15 
bytearray (105) = 0 

• put(#l, 10 * 16 + 13) & put(#l, 3 * 16) 'Final ticks 5808 

• put(#l, 255) & put(#l, 2 * 16 + 15) & put(#l, 0) 'End of Track command 
t 

•Print Chr(ByteArray(0) ) , Chr (ByteArray (1) ) , Chr (ByteArray (2) ) , Chr (ByteArray (3) ) 
•Print ByteArray (0), (1), ByteArray (2) , ByteArray (3) 
• f Writebinaryfile bytearrayO, 105 
End Sub 



Sub Writebinaryfile (track () As Byte, termcount As Integer) 
CommonDialogl . ShowSave 

Open CommonDialogl . FileName For Binary As 1 
For i = 0 To termcount 

Put 1, , track (i) 
Next i 
Close 1 
End Sub 



Private Sub cmdReadBinFile_Click ( ) 
CommonDialogl . ShowOpen 

Open CommonDialogl. FileName For Binary As 2 
n - LOF{2) 'the whole length of this file 
i - 1 



Dim a(0 To 5000) As Byte 
Do While (i <- n) 
b - Input (1, #2) 

••If i - 1 Then MsgBox CM=" & Asc("M w ) & f,w &i&«-&b& ww & Asc(b)) 

•If i - 2 Then MsgBox ( W T«" & AscCT") &""&i&«"&b& ,,f '& Asc(b)) 

•If i - 3 Then MsgBox ("h-" & Asc("h") & f,w &i*"«sb& ,,,, & Asc(b)) 

•If i - 4 Then MsgBox <"d=" & AscCd") & w "&i&""*b&""& Asc(b)) 
•If i - 5 Then MsgBox < w =" & Asc(" • , )& ww &i&"-&b& w " & Asc(b)) 

If b <> -- Then a(i) - Asc(b) 1 M 
intl - Asc(b) 

•Print i & " " & intl & " n 
If i « 56 Then 
temp = intl 
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End If 
i = i + 1 
Loop 

•MsgBox ( W M= 

• MsgBox ( w h= n 

• MsgBox { n d= n 

• MsgBox (" =" 
i - n 

inputfilelen = i 
Close 2 



& Asc( n M w ) & r 
& Asc("h w ) & 
& AscCd") & 
& Asc(" ") & 



& i & * 
v & i & 
f & i & 

* & i & 



& ChrB(a(l))) 
1 & a(2) * " w 
f & a(3) & " " 
• & a(4) & w " 



& ChrB(a(2))) 
& ChrB(a(3))) 
& ChrB(a(4))) 



MsgBox (CommonDialogl. FileName & " is " & n & " long. n = n & n & "i = M & i) 
CommonDialogl . ShowSave 

Open CommonDialogl . FileName For Output As 3 
For i = 1 To inputfilelen 

Print #3, i; Tab (10); (a(i)) 
Next i 

Close 3 



End Sub 

Private Sub cmdWriteMidiTest_Click ( ) 

Static Melody 

Dim note As Byte 

Dim track (0 To 2 A 16) As Byte 

Dim J As Integer 

t - 0 



track (0) = Asc("M") 'header chunk 1 



track (1) 
track (2) 
track (3) 
track (4) 
track (5) 
track (6) 
track (7) 
track (8) 
track(9) 
track(lO) - 0 
track (11) - 2 
track (12) « 1 
track(13) - 128 



Asc("T") 
AscCh") 
Asc("d") 
0 
0 
0 
6 
0 

1 



•length of file in bytes 
•Format Type 1 Multitrack 
•Number of tracks in this File 



•? ticks per beat 



track (14) 
track (15) 
track (16) 
track (17) 
track (18) 
track(19) 
track (20) 



AscCM") 

AscCT") 

AscCr") 

AscCk") 

0 

0 

0 



•header chunk 2 



track (21) - 26 • length of file in bytes 
track (22) - 0 'separator 
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track (23) 




255 


9 Time Signature command 


track (24) 


m 


5 * 


16 + 8 


track (25) 




4 




track (26) 




3 


• numerator 


track (27) 




2 


• denomenator 


track (28) 




96 


• Clocks / beat 


track(29) 


St 


8 


f 32nd notes / beat 


track(30) 


o 


0 


• separator 


track(31) 


- 


255 


1 ?Key Signature setting 


track(32) 


— 


127 




track(33) 




3 




track(34) 


= 


0 


•flats 


track (35) 




0 


• sharps 


track(36) 




65 


1 ? 


track(37) 


= 


0 


• separator 


track (38) 




255 


"Tempo setting command 


track(39) 


= 


5 * 


16 + 1 


track (40) 


= 


3 




track (41) 




7 


•microseconds 


track(42) 




10 


* 16 + 1 


track (43) 




32 




track (44) 




0 


'separator 



track (45) = 255 'End of Track command 

track(46) - 2 * 16 + 15 

track(47) = 0 

track(48) = AscC'M") 'header chunk 3 

track(49) = AscC'T") 

track(50) = Asc(V) 

track(51) = AscCk") 

track(52) = 0 

track (53) = 0 

track (54) - 0 

track (55) = 133 'length of file in bytes 

track (56) - 0 'status 



track (57) « 255 'command 
track(58) = 89 
track(59) - 2 
track (60) - 0 
track (61) - 0 

track (62) - 0 * 
DNAString - "ATGATGATGGTGCACCTGACTCCTGAGGAGAAGTCTGCCGTTACTGCCCTGTGGGCGAAGGTGAACGTGGATGAA' 
•DNAString « •'TTTTTCTTATTGTCTTCCTCATCGTATTACTAATAGTGTTGCTGATGG'' 
•DNAString - ''CTTCTCCTACTGCCTCCCCCACCGCATCACCAACAGCGTCGCCGACGG " 
•DNAString = " ATTATCAT AATGACTACCACAACGAAT AACAAAAAGAGTAGCAGAAGG " 
•DNAString «= m GTTGTCGT AGTGGCTGCCGCAGCGGATGACGAAGAGGGTGGCGGAGGG " 
•DNAString « "ATGTTT" 



DNAlen - Len( DNAString) 
i - 1 
J - 63 

•Do While i <*= DNAlen 

• nuke - UCase (Mid (DNAString, i, 1)) 

• Select Case nuke 

Case "C" 

• note - 60 

• Case "A" 

• note = 57 

• Case "T" 

• note - 62 

• Case "G" 

• note - 67 

• Case 
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MsgBox "Warning: Viral DNA detected" 
note - 66 

• Case Else 

MsgBox "Warning: Alien DNA detected" 

• note « 99 
' End Select 

• track (J) - 9 * 16 'Note on, Middle C, vel. 64 
1 track (J + 1) = note 

• track(J + 2) = 64 

' track(J + 3) = 128 + 3 'delay 432 ticks 
track (J + 4) = 3 * 16 

track(J + 5) - 128 'Note off, Middle C, vel. 64 
' track (J + 6) = note 
' track(J + 7) = 64 

1 track(J + 8) - 3 * 16 'delay 432 ticks 

' J = J + 9 

i 

• i » i + 1 

•reply - MsgBox(nuke & note &""&i&««& Len(Melody), 51) 
•If reply = vbCancel Then i « DNAlen +1 
•Loop 

• track(J - 1} = 10 * 16 + 13 'delay 5808 ticks 
•track(J) = 3 * 16 
■ track (J + 1) = 255 'End of Track command 

• track(J + 2) = 2 * 16 + 15 
1 track (J + 3) = 0 

'reply = MsgBox("Do you want a test MIDI file?", 51) 
•If reply - vbYes Then WriteMidiFile (Melody) 
•i - i - 1 

*track(63) = (<{i * 9) + 5) \ 128)+128 
•track(64) = (i * 9 + 5) Mod 128 
•J = J + 3 



croot =60 
voice 1 = 0 
voice2 = 0 
cronvol «= 100 
cdonvol = 100 
mdonvol « 100 
croffvol = 64 
cdoffvol - 64 
mdoffvol « 64 



k - 1 

Do While k <= DNAlen 

nukel «= OCase (Mid (DNASt ring, k, 1)) 

nuke2 - UCase (Mid (DNASt ring, k + 1, 1)) 

n\xke3 - UCase(Mid(DNAString, k + 2, 1)) 

•decode aa from 3 nukes; aa f s are numbered alphabetically 
aa- amxno acid; nuke = nucleotide; 



Select Case nukel 
Case "T" 

Select Case nuke2 
Case n T" 

If (nuke3 = "T" Or nuke3 

aa = 14 
Else 

aa = 11 
End If 
Case M C" 

aa = 16 
Case "A" 

If (nuke3 = "T" Or nuke3 

aa = 19 
Else 

aa = 21 . 
End If 

Case w G n 

If <nuke3 = "T" Or nuke3 = "C") Then 

aa « 5 
Elself nuke3 = "A" Then 

aa = 21 
Else 

aa = 18 
End If 
End Select 
Case W C M 

Select Case nuke2 
Case "T" 

aa = 11 
Case "C" 

aa = 15 
Case "A" 

If (nuke3 = "T" Or nuke3 = "C") Then 
aa = 9 
Else 

aa - 6 
End If 
Case "G" 
aa = 2 
End Select 
Case "A" 

Select Case nuke2 
Case W T W 

If nuke3 = "G" Then 

aa = 13 
Else 

aa - 10 
End If 
Case "C" 

aa - 17 
Case "A" 

If (nuke3 = "T" Or nuke3 = *C n ) Then 

aa = 3 
Else 

aa = 12 



= "C") Then 



= "C") Then 



End If 
Case "G" 

If (nuke3 - "T" Or nuke3 - "C") Then 

aa = 16 
Else 

aa - 2 
End If 
End Select 

Case "G" 

Select Case nuke2 
Case "T" 

aa = 20 
Case "C n 

aa = 1 
Case "A" 

If (nuke3 = "T" Or nuke3 = "C") Then 
aa = 4 
Else 

aa « 7 
End If 
Case "G" 
aa = 8 
End Select 
Case "U" 

MsgBox "Warning: Viral DNA detected, SKIPPING U n 
note « 66 
Case Else 

MsgBox "Warning: Alien DNA detected, SKIPPING ?" 
note «= 99 
End Select 



'MsgBox nukel & nuke2 & nuke3 & " = " & aa 
k « k + 3 

• assign chord type based on "hydrophobic" to "hydrophylic" 
•ie, according to chemical property 
Select Case aa 
Case 14, 19, 18 

ct = 1 'ct «= chord type 
Case 8, 1, 20, 11, 10 

ct « 2 
Case 16, 17 

ct - 3 
Case 15 

ct = 4 
Case 5, 13 

ct = 5 1 ct = chordtype 
Case 3, 6 

ct = 6 
Case 12, 2, 9 

ct - 7 
Case 4, 7 

ct - 8 
End Select 

'assume root »= 0, chord tones in semitones 

'define chord types (chord tones are adj. based on aa type) 
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Select Case ct 

Case 1 'augmented chord type 
ctl - 4 
ct2 - 8 
ct3 - 12 
Case 2 'maj . 7th 
ctl = 4 
ct2 - 7 
ct3 - 11 
Case 3 ' 13th chord 
ctl = 4 
ct2 - 7 
ct3 - 9 
Case 4 '9th chord 
ctl = 4 
ct2 = 7 
Ct3 = 14 
Case 5 'sus 4th chord 
ctl = 5 
ct2 = 7 
ct3 - 12 
Case 6 "dominant 7th 
ctl - 4 
ct2 = 7 
ct3 - 10 
Case 7 f half diminished 
ctl = 3 
ct2 = 6 
ct3 = 10 
Case 8 'diminished 
ctl = 3 
ct2 = 6 
ct3 = 9 
End Select 

•adj. root based on chem. property 

•in this example, the interval is determined by the degree of 
•"hydrophobia", the intervals are diatonic (i.e., in a modal scale) 
•other scales can be used 

Select Case ct 

Case 1 'augmented chord type '-_ 

croot - croot 4 7 
Case 2 f maj. 7th 

croot - croot 4 5 
Case 3 '13th chord 
croot - croot 4 4 

Case 4 '9th chord 

croot « croot 4 2 
Case 5 'sus 4th chord 

croot « croot 
Case 6 'dominant 7th 

croot - croot - 1 
Case 7 'half diminished 

croot - croot - 2 
Case 8 ' diminished 
croot « croot - 3 
End Select 

•clip if necessary to keep in range; can be more intelligent 
If croot > 67 Then croot « croot - 12 
If croot < 36 Then croot = croot 4 12 
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"assign melody based on nukes and chord tones (which are 
• determined from aa's) 
Select Case nukel 
Case "C" 

notel = croot +12+12 
Case "A" 

notel = croot + ctl + 12 
Case "T" 

notel = croot + ct2 + 12 
Case W G W 

notel = croot + ct3 + 12 
End Select 
Select Case nuke2 
Case "C" 

note2 « croot +12+12 
Case "A" 

note2 = croot + ctl + 12 
Case "T" 

note2 = croot + ct2 + 12 
Case "G" 

note2 = croot + ct3 + 12 
End Select 
Select Case nuke3 
Case "C 

note3 = croot +12+12 
Case "A" 

note3 « croot + ctl + 12 
Case "T" 

note3 = croot + ct2 + 12 
Case "G H 

note3 «= croot + ct3 + 12 
End Select 
•generate midi stuff 

track (J) - 9 * 16 'Note on, croot, vel. 64 
track (J + 1) - croot - 12 
track (J + 2) = cronvol 
track (J + 3) - 0 

track (J + 4) « 9 * 16 + voicel "Note on, ctl, vel. 64 
track (J + 5) - croot + ctl 
track (J + 6) « cdonvol 
track (J + 7) - 0 

track (J + 8) - 9 * 16 + voicel 'Note on, ct2 C, vel, 64 
track (J + 9) = croot + ct2 
track (J + 10) = cdonvol 
track(J + 11) = 0 

track (J + 12) - 9 * 16 + voicel 'Note on, ct3, vel. 64 
track (J + 13) - croot + ct3 
track (J + 14) - cdonvol 
track (J + 15) - 0 

track(J + 16) « 9 * 16 + voice2 "Note on, melody, vel 72 432 ticks 

track (J + 17) = notel 

track (J + 18) « mdonvol 

track (J + 19) - 130 "delay 432 ticks+48 
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track (J + 
track (J + 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track (J 
track {J 



+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 



20) - 

21) • 

22) « 
23) 
24) 
25) 
26) 
27) 
28) 
29) 
30) 
31) 
32) 
33) 
34) 
35) 
36) 
37) 
38) 
39) 
40) 
41) 
42) 
43) 
44) 
45) 
46) 
47) 
48) 
49) 
50) 
51) 
52) 
53) 
54) 
55) 
56) 
57) 
58) 



track (J + 59) 
track (J + 60) 
track (J + 61) 
loopsize - 62 



* 128 'Note off, croot, vel. 64 

• croot - 12 
= croffvol 

= 0 

= 128 + voicel 'Note off, ctl, vel, 64 
=- croot + ctl 
= cdoffvol 
= 0 

= 128 + voicel 'Note off, ct2, vel. 64 
= croot + ct2 
= cdoffvol 
= 0 

= 128 + voicel 'Note off, ct3, vel. 64 
= croot + ct2 
= cdoffvol 
= 0 

= 128 + voice2 'note off melody 
= notel 
« radof fvol 

- 129 'delay 
= 0 

= 9 * 16 + voice2 'Note on, melody, vel 72 432 ticks 
= note2 
= mdonvol 

= 130 1 delay n ticks 
= 0 

= 128 + voice2 'note off melody 
« note2 
= mdoffvol 
= 129 'delay 
= 0 

= 9 * 16 + voice2 'Note on, melody, vel 72 432 ticks 
= note3 
= mdonvol 
= 130 'delay 
= 0 

«= 128 + voice2 'note off melody 
= note3 
= mdoffvol 

- 129 'delay 

- 0 z 



Loop 



track (J - 2) 
track (J - 1) 
track (J) = 2 
track (J + 1) 
J - J + 1 



J « J + loopsize 
0 

255 'End of Track command 

16 + 15 

0 



loops - k \ 3 

track(54) - ( (7 + loops * loopsize) + 2) \ 256 
temp «= 7 + loops * loopsize + 2 
track(55) - (7 + loops * loopsize + 2) Mod 256 
Dim varsize As Integer 

MsgBox loops 

Writebinaryfile track(), J 'debug -> J End Sub 

Private Sub Command2_Click() 



End Sub 
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